Sub Main
    xsh.Screen.WaitForString "008"
    xsh.Screen.Send ":"
    xsh.Screen.WaitForString ":"
    xsh.Screen.Send "003"
    xsh.Screen.Send VbCr
    xsh.Screen.Send VbCr
    xsh.Screen.WaitForString "USERNAME"
    xsh.Screen.Send "USERNAME"
    xsh.Screen.Send VbCr
    xsh.Screen.WaitForString "password"
    xsh.Screen.Send "password"
    xsh.Screen.Send VbCr
End Sub